home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / em7sui_1 / em7sui~1.exe / SliderTest.wr_ / SliderTest.wr
Text File  |  1998-10-22  |  2KB  |  108 lines
  1. #VRML V2.0 utf8
  2.  
  3. # Copyright Electrohouse 1998
  4.  
  5. # This file may not be copied, modified or distributed
  6. # in any way which violates the ProtoPak licensing 
  7. # agreement established by Electrohouse.  
  8.  
  9. EXTERNPROTO em7_Slider [
  10.     field SFFloat height
  11.     field SFFloat radius
  12.     field SFInt32 min
  13.     field SFInt32 max
  14.     field SFInt32 value
  15.     eventIn SFInt32 set_min
  16.     eventIn SFInt32 set_max
  17.     eventIn SFInt32 set_value
  18.     eventOut SFInt32 value_changed
  19. ] "..\VR_UI.wrl#em7_Slider"
  20.  
  21. EXTERNPROTO em7_SingleTypeConversion [
  22.     eventIn SFBool SFBoolValue
  23.     eventIn SFFloat SFFoatValue
  24.     eventIn SFInt32 SFInt32Value
  25.     eventIn SFString SFStringValue
  26.     eventOut SFBool SFBoolResult
  27.     eventOut SFFloat SFFloatResult
  28.     eventOut SFInt32 SFInt32Result
  29.     eventOut SFString SFStringResult
  30.     eventOut MFString MFStringResult
  31. ] "..\VR_COMMON.wrl#em7_SingleTypeConversion"
  32.  
  33. EXTERNPROTO em7_ProgressBar [
  34.     exposedField SFNode appearance
  35.     field SFFloat radius
  36.     field SFFloat height
  37.     field SFFloat percentageComplete
  38.     eventIn SFFloat set_percentageComplete
  39.     eventOut SFFloat percentageComplete_changed
  40. ] "..\VR_UI.wrl#em7_ProgressBar"
  41.  
  42. EXTERNPROTO em7_ScaledSFFloat [
  43.     field SFFloat oldMin
  44.     field SFFloat oldMax
  45.     field SFFloat newMin
  46.     field SFFloat newMax
  47.     eventIn SFFloat set_oldMin
  48.     eventIn SFFloat set_oldMax
  49.     eventIn SFFloat set_newMin
  50.     eventIn SFFloat set_newMax
  51.     eventIn SFFloat set_value
  52.     eventOut SFFloat value_changed
  53. ] "..\VR_COMMON.wrl#em7_ScaledSFFloat"
  54.  
  55. Transform {
  56.     translation 0 0 0
  57.     children [
  58.         DEF PROGRESS em7_ProgressBar { 
  59.             appearance Appearance { material Material { diffuseColor 0.2 0.4 0.8 } }
  60.             percentageComplete 0.0
  61.         }
  62.     ]
  63. }
  64.         
  65. Transform {
  66.     translation -2.5 2 0
  67.     rotation 0 0 1 -1.5708
  68.     children [
  69.         DEF SLIDE1 em7_Slider {
  70.             min 6
  71.             max 24
  72.             height 5
  73.             radius 0.1
  74.             value 14
  75.         }
  76.     ]
  77. }
  78.         
  79. Transform {
  80.     translation 4 2 0
  81.     children [
  82.         Shape {
  83.             geometry DEF VALUE_TEXT Text {
  84.                 string "Value"
  85.             }
  86.         }
  87.     ]
  88. }
  89.  
  90. DEF CONVERT em7_SingleTypeConversion {}
  91. DEF SCALER em7_ScaledSFFloat {
  92.     oldMin 6.0
  93.     oldMax 24.0
  94.     newMin 0.0
  95.     newMax 1.0
  96. }
  97.  
  98. ROUTE SLIDE1.value_changed TO CONVERT.SFInt32Value
  99. ROUTE CONVERT.SFFloatResult TO SCALER.set_value
  100. ROUTE SCALER.value_changed TO PROGRESS.set_percentageComplete
  101.  
  102. ROUTE CONVERT.MFStringResult TO VALUE_TEXT.set_string
  103.  
  104.  
  105.  
  106.  
  107.  
  108.